home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / STRINGS.SWG / 0085_FLIPPING A STRING.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  512b  |  27 lines
  1. {
  2.   Thanks but I already wrote a string flipping function, I asked for a
  3.   BASM or Assembler function for optimized speed.
  4. }
  5.  
  6. function FlipStr(S:string):string; ASSEMBLER;
  7. ASM
  8.         les     di,@Result
  9.         mov     dx,ds
  10.         lds     si,S
  11.         xor     ax,ax
  12.         cld
  13.         lodsb
  14.         mov     [di],al
  15.         add     di,ax
  16.         mov     cx,ax
  17.         jcxz    @Done
  18. @@1:    cld
  19.         lodsb
  20.         std
  21.         stosb
  22.         loop    @@1
  23.         mov     ds,dx
  24. END;
  25.  
  26.  
  27.